ny_noaa_tidy %>%
mutate (text_label = str_c("Date: ", date))%>%
plot_ly(
x= ~tmin, y = ~tmax, color = ~name,
type = "scatter", mode = "markers", text = ~text_label
)
ny_noaa_tidy%>%
plot_ly(
y = ~tmax, color = ~name,
type = "box"
)
ny_noaa_tidy%>%
count(name)%>%
plot_ly(
x = ~name, y= ~n,
type = "bar")